home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / macros / equ2d.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  499b  |  19 lines
  1. /* macro to equivilence current model */
  2. options results
  3.  
  4. address ami2d
  5.  
  6. result = Request(,,"Select nodes for exclusion\from equivilencing.\Use right mouse button to\end selection.",,"OKAY","CANCEL","AMI2D")
  7. if result = '' then exit
  8. 'group(xgroup,rem,1,0)'
  9. 'group(xgroup,add)'
  10. 'clear'
  11. 'save(ram:temp.dat)'
  12. 'get tol'
  13. if length(result) > 0 then tol = result
  14. else tol = 1.e-6
  15. address command 'ami2d:bin/equ2d ram:temp.dat -xxgroup -t'tol
  16. 'read(ram:temp.dat)'
  17. address command 'delete ram:temp.dat'
  18. exit
  19.